1 .
2 . SUPER SOFTWARE'S
3 . LASER BATTLE
4 .
9 :return ;NT=0;BC=90;FC=125;box 0,0,160,88,1;box 0,0,150,80,2;box 40,0,5,88,1;box -40,0,5,88,1;box 0,29,160,4,1
20 S=0;T=100;U=0;gosub 500;V=0;X=0;gosub 40;gosub 50;@(1)=10;@(2)=10;goto 90
40 box -60,V,5,5,1;box -57,V,5,1,3;box -62,V,1,1,3;return 
50 box 60,X,5,5,1;box 57,X,5,1,3;box 62,X,1,1,3;return 
90 for Z=1to 2;if &(23)run 
100 W=JY(1)mul 5;if V+W>20W=0
110 if V+W<-35W=0
120 if Wbox -60,V,11,11,2;V=V+W;W=0;gosub 40
130 Y=JY(2)mul 5;if X+Y>20Y=0
140 if X+Y<-35Y=0
150 if Ybox 60,X,11,11,2;X=X+Y;Y=0;gosub 50
160 for D=1to 2;if @(D)>0if TR(D)@(D)=@(D)-1;gosub 200+Dmul 100
161 if @(D)<1@(D)=@(D)-1;gosub 290+Dmul 100;if @(D)<-10@(D)=10;gosub 295+Dmul 100
165 next D
180 if S>U+2if rnd (9)=1gosub 900
185 if U>S+2if rnd (9)=1gosub 800
190 next Z;if T>1T=T-1;gosub 510;goto 90
200 T=0
205 if S=U CY=35;CX=-3;print "TIE",;goto 90
210 if S#U T=0;CY=0;CX=-24;print "GAME OVER
215 gosub 395;gosub 495;gosub 500
220 if &(23)run 
230 goto 220
300 line -50,V,4
310 if PX(40,V)&(21)=255;&(23)=255;line 37,V,3;box 40,V,5,5,2;&(21)=0;&(23)=0;line -50,V,3;return 
330 if PX(40,V)=0if V=X&(21)=255;&(21)=255;line 60,V,3;gosub 600;return 
340 if PX(40,V)=0&(21)=255;&(23)=255;line 70,V,3;NT=3;MU="T";NT=0;line -50,V,3;&(21)=0;&(23)=0;return 
390 CX=-67;CY=35;print "LOAD",; return 
395 CX=-67;CY=35;print "    ",; CX=-62;print #2,S,; return 
400 line 50,X,4
410 if PX(-40,X)&(21)=255;&(23)=255;line -37,X,3;box -40,X,5,5,2;&(21)=0;&(23)=0;line 50,X,3;return 
420 if PX(-40,X)=0if X=V&(21)=255;&(21)=255;line -60,X,3;gosub 700;return 
440 if PX(-40,X)=0&(21)=255;&(23)=255;line -70,X,3;NT=3;MU="T";NT=0;line 50,X,3;&(21)=0;&(23)=0;return 
490 CX=51;CY=35;print "LOAD",; return 
495 CX=51;CY=35;print "    ",;CX=58;print #2,U,;return 
500 CY=35;CX=-62;print #2,S,;CX=58;print #2,U,
510 CY=35;CX=-3;print #3,T,;return 
600 T=T-5;line -50,V,3;for A=20to 220step 6;&(21)=A;&(19)=A;&(23)=A
610 box 60+rnd (10)-5,V+rnd (6)-3,3,3,3;next A;&(21)=0;box 60,V,15,15,2;S=S+1;gosub 500;gosub 1000;return 
700 T=T-5;line 50,X,3;for A=20to 220step 6;&(21)=A;&(19)=A;&(23)=A
710 box -60+rnd (10)-5,X+rnd (6)-3,3,3,3;next A;&(21)=0;box -60,V,15,15,2;U=U+1;gosub 500;gosub 1100;return 
800 Q=rnd (11)mul 5-35;box -40,Q,5,5,1;NT=3;MU="N";NT=0;return 
900 R=rnd (11)mul 5-35;box 40,R,5,5,1;NT=3;MU="H";NT=0; return 
1000 X=rnd (11)mul 5-35;gosub 50;box 40,0,5,88,1;return 
1100 V=rnd (11)mul 5-35;gosub 40;box -40,0,5,88,1;return 
:return ;run 